#rm(list=ls(all=TRUE)) 
source("extreme_values.R")
extreme_values (
    inpath = c("be_000HEG05_00CEMU_201001010000_201001312330_mez_ca05_cti30_0005.dat", 
               "be_000HEG05_00CEMU_201002010000_201002282330_mez_ca05_cti30_0005.dat"),
    outpath = "extreme_values_out.txt",
    para = "Ta_200",
    limits = c(0.01),
    digit = c(3))  